100 CLR:DIMTS$(20):DIMBL$(20):DIMF(20)
110 TS$(1)="05 19":BL$(1)="166":F(1)=1
120 TS$(2)="23 17":BL$(2)="107":F(2)=1
130 TS$(3)="12 14":BL$(3)="221":F(3)=2
140 TS$(4)="21 05":BL$(4)="197":F(4)=2
150 TS$(5)="33 03":BL$(5)="222":F(5)=2
160 TS$(6)="12 06":BL$(6)="131":F(6)=3
170 TS$(7)="22 05":BL$(7)="026":F(7)=3
180 TS$(8)="05 05":BL$(8)="084"
190 TS$(9)="23 05":BL$(9)="025"
200 TS$(10)="12 07":BL$(10)="139"
210 TS$(11)="21 13":BL$(11)="115"
220 TS$(12)="33 11":BL$(12)="140"
230 TS$(14)="22 05":BL$(14)="198"
240 TS$(13)="12 14":BL$(13)="049"
250 FORI=1TO7
260 IFF<>F(I)THENGOSUB430
270 OPEN2,8,15:OPEN1,8,2,"#"
280 IFF<>F(I)THENGOSUB390
290 PRINT#2,"U1 2 0 "+TS$(I)
300 PRINT#2,"B-P 2 "+BL$(I)
310 PRINT#1,CHR$(173);
320 PRINT#2,"U2 2 0 "+TS$(I)
330 IFI=7THEN380
340 PRINT#2,"U1 2 0 "+TS$(I+7)
350 PRINT#2,"B-P 2 "+BL$(I+7)
360 PRINT#1,CHR$(169)CHR$(1)CHR$(141)CHR$(175)CHR$(2)CHR$(234);
370 PRINT#2,"U2 2 0 "+TS$(I+7)
380 F=F(I):CLOSE2:CLOSE1:NEXT:END
390 PRINT#2,"U1 2 0 18 0":PRINT#2,"B-P 2 2"
400 PRINT#2,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65):PRINT#1,"A";
410 PRINT#2,"U2 2 0 18 0"
420 RETURN
430 PRINT"INSERT DISK - SIDE"F(I)CHR$(13)"PRESS ANY KEY !"
440 POKE198,0:WAIT198,1:POKE198,0:RETURN